home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / How To / Using UK Keyboard < prev   
Text File  |  1998-10-26  |  981b  |  29 lines
  1. ;; uk-keyboard.lisp
  2. ;;
  3. ;; On a UK keyboard the sharp sign character ("#") is hard to
  4. ;; type to MCL. It requires two keystrokes: <Control>-q <Option>-3.
  5. ;; This file removes the need for the <Control>-q. The sharp sign
  6. ;; character can now be typed with <Option>-3 (alt-3).
  7. ;; Thanks to Ralph Martin.
  8.  
  9. ;; To make these changes in effect permanently, drag this file to
  10. ;; the Environment/Extensions folder and reboot SCOM.
  11.  
  12. (in-package :ccl)
  13.  
  14. (def-fred-command (:meta #\3)
  15.   #'(lambda (w) (let ((*current-character* #\#)) (ed-self-insert w))))
  16.  
  17. ;; Some of you will prefer to type the sharp sign with <Shift>-3, and the
  18. ;; British pound sign with <Option>-3. Uncomment this code (by commenting
  19. ;; out the "#+swap-pounds" line) to set it up that way.
  20.  
  21. #+swap-pounds
  22. (progn
  23.   (def-fred-command #\243
  24.     #'(lambda (w) (let ((*current-character* #\#)) (ed-self-insert w))))
  25.   
  26.   (def-fred-command (:meta #\3)
  27.     #'(lambda (w) (let ((*current-character* #\243)) (ed-self-insert w))))
  28. )
  29.